#wordcloud
#Dietary Struture 1990
#Dietary Struture 2018
#Dietary Struture 1990 in rural China
#Dietary Struture 2018 in urban China
# Refined Grains & Non-starchy Vegetables by Gender in China
# Refined Grains wordcloud
# Refined Grains map
# Refined Grains bar chart by continent
# Vegetables wordcloud
# Vegetables map
# Vegetables bar chart by continent
# life exp map
# cancer rate map
basic_intake <- food_life %>%
filter(age==999,female==999,urban==999,edu==999) %>%
rename(continent = superregion2) %>%
mutate_at(c('intake'), function(x) round(x,2))%>%
select(continent,year,Country,Food,intake) %>%
arrange(Country)
datatable(basic_intake,filter = list(position = "top"),rownames = FALSE)
basic_life <- food_life %>%
filter(age==999,female==999,urban==999,edu==999) %>%
rename(continent = superregion2) %>%
mutate_at(c('cancer_rate','life_exp'), function(x) round(x,2))%>%
select(continent,year,Country,life_exp,cancer_rate) %>%
arrange(Country)
datatable(basic_life,filter = list(position = "top"),rownames = FALSE)